;*******************************************************************
;* Header Information
;*******************************************************************
	TopText=Serve me well, {$zzSubname}, and you will be rewarded.
	TopText=Your most cencent punishment severity was: {#zzPunishmentSeverity}. Stay good and avoid getting punished.
	TopText=You recently asked permission to: {$zzPermission}

    

;*******************************************************************
;* Footer Information
;*******************************************************************



;*******************************************************************
;* Startup Events
;*******************************************************************
[events]
	FirstRun=firstRun
	OpenProgram=OpenProgram
    StartFromPause=startFromPause
    CheckOn=checkClothingOn
    CheckOff=checkClothingOff
    PunishmentDone=askLearned

[init]
	NewStatus=Captured
	Merits=0
    
[procedure-OpenProgram]
    ;see bookkeeping.inc
    Procedure=RefreshCore
    ;calculate the merits missing due to program shutdown time
    procedure=addShutdownMerits
    unsetFlag=paused
    
[procedure-StartFromPause]
    setFlag=paused
    ;so that no merits should be added for the paused time
    

;*******************************************************************
;* General Procedures
;*******************************************************************

[procedure-backToLastState]
    newState=&LastState
 
[Instructions-noInstruction]
    Askable=0
	change=Program
	none=No Special Instructions

[procedure-Not_Answering_A_Question]
    title=Not answering {$zzMaster}'s question
	Message=How did you dare not to respond when {$zzMaster} asks you a question?
	addMerit=-50
    punish=100
    
;Randomise the mood of the mistress, higher is happier
[procedure-ChangeMood]
    Random#=#mood,100
    set#=#invMood,100
    ;inverse mood
    subtract#=#invMood,#mood
    setFlag=moodLast
    ;calculate probabilities, see bookkeeping
    procedure=adjustProbabilities

    
[flag-moodLast]
    CenterRandom=1
    duration=02:00,28:00
    ExpireProcedure=ChangeMood
    


;*******************************************************************
;* First-Run Procedure
;*******************************************************************
[procedure-firstRun]
    title=Slave Captured
    
    Procedure=RefreshCore
    set#=#bathMPM,0
    set#=#extraBondageMPM,0
    procedure=resetAlcohol
    
    message=So you are the new slave arrived today? You will obey me as I say. Be humble and faithful, and you will be rewarded.
    message=As a slave, you don't own anything, and I'll throw away anything I don't need, starting with your name. I'll call you whatever I want, {$zzSubName}!
    message=Now strip all your clothes --- a slave like you does not deserve any.
    removeFlag=covered
    removeFlag=slutty
    setFlag=stripped
    ; both clothing and bondage are considered for merit changes.
    set#=#bondageConsidered,1
    set#=#clothingConsidered,1
    setFlag=homeClothing
    
    clothing=firstStripping
    newSubStatus=firstStripping

[status-Captured]
    reportsOnly=1
    Picture=Charlotte\imgs\torture_01.jpg
    
    
[clothing-firstStripping]
    title=stripped
    askable=0
    option=Tits, ass, and cock on display
        checkOff=clothes
    
[status-FirstStripping]
    title=Stripping Bare
    ReportsOnly=1
    Picture=Charlotte\imgs\stripping_01.jpg
    group=unavailable
    text=***your dress code***
    text=%clothing
    text=*********************
    text=You have five minutes to get stripped, {$zzSubName}.
    MaxTime=00:05
    quickReport=FirstStrippingFinished
    
[report-FirstStrippingFinished]
    prestatus=firstStripping
    title=This slave has stripped all clothings, Mistress.
    newStatus=Captured
    ClothReport={$zzMaster}: Time for inspection, {$zzSubName}
    procedure=firstBondage
    
[procedure-FirstBondage]
    message=That's better. Now put on these slave irons!
    set#=#bondageLevel,3
    clothing=home
    newStatus=FirstBondage
    
[status-FirstBondage]
    title=putting on slave irons
    ReportsOnly=1
    Picture=Charlotte\imgs\bondage_01.jpg
    group=unavailable
    text=***your dress code***
    text=%clothing
    text=*********************
    text=You have five minutes to put on slave irons, {$zzSubName}.
    MaxTime=00:05
    quickReport=FirstBondageFinished
    
[report-FirstBondageFinished]
    prestatus=firstBondage
    title=This slave is locked in irons, Mistress.
    newStatus=Captured
    ClothReport={$zzMaster}: Time for inspection, slave!
    procedure=firstPunishments
    
[procedure-firstPunishments]
    title=new slave trainings
    message=Serve me well, slave, and you will be rewarded. Why don't we let those senior slave girls give you some basic trainings?
    addMerit=#startingMerits
    punish=#startingMerits
    punishmentGroup=short
    newStatus=NormalRed